Option Strict Off
Option Explicit On
'UPGRADE_NOTE: menu was upgraded to menu_Renamed. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="A9E4979A-37FA-4718-9994-97DD76ED70A7"'
Friend Class menu_Renamed
	Inherits System.Windows.Forms.Form
	Public VBWord As Microsoft.Office.Interop.Word.Application
	
	
	'*****************************************************
	' Finalidad: Menu de la barra principal
	'*****************************************************
	Public Sub subnuevoac_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles subnuevoac.Click
		bandProtocolo = 0 : ac.Show()
	End Sub
	Public Sub subnuevoAn_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles subnuevoAn.Click
		an.Show()
	End Sub
	Public Sub subnuevoril_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles subnuevoril.Click
		ril.Show()
	End Sub
	Public Sub subnuevordl_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles subnuevordl.Click
		rdl.Show()
	End Sub
	Public Sub subsalir_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles subsalir.Click
		Dim Index As Short = subsalir.GetIndex(eventSender)
		End
	End Sub
	'Private Sub modificar_Click()
	'modificar_form.Show
	'End Sub
	Public Sub subFnuevo_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles subFnuevo.Click
		Dim aux As String
		'UPGRADE_WARNING: Couldn't resolve default property of object devolverCont(). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
		aux = devolverCont("count(*)", "parametros WHERE ensayo='fi' and valores=''", 0)
		If CShort(aux) <> 0 Then
			bandEnsayo = 1 : fisicoquimico.Show() 'Nuevo
		Else
			Call mensajes(8)
		End If
	End Sub
	Public Sub subFM_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles subFM.Click
		Dim aux As String
		'UPGRADE_WARNING: Couldn't resolve default property of object devolverCont(). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
		aux = devolverCont("count(*)", " parametros WHERE ensayo='fi' and valores<>''", 0)
		If CShort(aux) <> 0 Then
			bandEnsayo = 2 : fisicoquimico.Show() 'Modificar
		Else
			Call mensajes(8)
		End If
	End Sub
	Public Sub subNM_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles subNM.Click
		Dim aux As String
		'UPGRADE_WARNING: Couldn't resolve default property of object devolverCont(). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
		aux = devolverCont(" count(*)", " parametros WHERE ensayo='mi' and valores=''", 0)
		If CShort(aux) <> 0 Then
			bandEnsayo = 1 : microbiologico.Show() 'nuevo
		Else
			Call mensajes(8)
		End If
	End Sub
	Public Sub subMM_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles subMM.Click
		Dim aux As String
		'UPGRADE_WARNING: Couldn't resolve default property of object devolverCont(). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
		aux = devolverCont(" count(*)", " parametros WHERE ensayo='mi' and valores<>''", 0)
		If CShort(aux) <> 0 Then
			bandEnsayo = 2 : microbiologico.Show() 'Modificar
		Else
			Call mensajes(8)
		End If
	End Sub
	'*****************************************************
	' Finalidad: Menu de la barra principal Reportes
	'*****************************************************
	'Private Sub subllfisi_Click()
	'bandReporte = 1: rep_fisico.Show 'reportes fisicoquimico
	'End Sub
	
	'/*/*////////////////////////////////////////////
	Public Sub subllfisi_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles subllfisi.Click
		'nuevo fisico
		bandModi = 1 : bandReporte = 1 : rep_fisico.Show()
		If bandReporte = 0 Then rep_fisico.Close()
	End Sub
	'Modificar
	Public Sub subResFisi_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles subResFisi.Click
		bandModi = 2 : bandReporte = 1 : rep_fisico.Show()
		If bandReporte = 0 Then rep_fisico.Close()
		
	End Sub
	Public Sub sublleMi_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles sublleMi.Click
		'nuevo micro
		bandModi = 1 : bandReporte = 1 : rep_micro.Show()
		If bandReporte = 0 Then rep_micro.Close()
	End Sub
	Public Sub subResMicro_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles subResMicro.Click
		'modificar micro
		bandModi = 2 : bandReporte = 1 : rep_micro.Show()
		If bandReporte = 0 Then rep_micro.Close()
	End Sub
	'////////////////////////////////////////
	'BASICO
	Private Sub subRNFisi_Click()
		'nuevo fisico
		bandModi = 1 : bandReporte = 1 : rep_fisico.Show()
		If bandReporte = 0 Then rep_fisico.Close()
	End Sub
	Private Sub subRMfi_Click()
		'modifi fisico
		bandModi = 2 : bandReporte = 1 : rep_fisico.Show()
		If bandReporte = 0 Then rep_fisico.Close()
	End Sub
	Private Sub subBnuevo_Click()
		'nuevo micro
		bandModi = 1 : bandReporte = 1 : rep_micro.Show()
		If bandReporte = 0 Then rep_micro.Close()
	End Sub
	Private Sub subBMo_Click()
		'modifi micro
		bandModi = 2 : bandReporte = 1 : rep_micro.Show()
		If bandReporte = 0 Then rep_micro.Close()
	End Sub
	'residual
	Private Sub subResNueFi_Click()
		'nuevo fisico
		bandModi = 1 : bandReporte = 2 : rep_fisico.Show()
		If bandReporte = 0 Then rep_fisico.Close()
	End Sub
	Private Sub subResMo_Click()
		'modifi fisi
		bandModi = 2 : bandReporte = 2 : rep_fisico.Show()
		If bandReporte = 0 Then rep_fisico.Close()
	End Sub
	Private Sub subResNmicro_Click()
		'nuevo micro
		bandModi = 1 : bandReporte = 2 : rep_micro.Show()
		If bandReporte = 0 Then rep_micro.Close()
	End Sub
	Private Sub subResMoMicro_Click()
		'modifi micro
		bandModi = 2 : bandReporte = 2 : rep_micro.Show()
		If bandReporte = 0 Then rep_micro.Close()
	End Sub
	'riego
	Private Sub subrieNue_Click()
		'nuevo fisico
		bandModi = 1 : bandReporte = 3
		rep_fisico.Show()
		If bandReporte = 0 Then rep_fisico.Close()
	End Sub
	Private Sub subRieModi_Click()
		'modifi fisico
		bandModi = 2 : bandReporte = 3 : rep_fisico.Show()
		If bandReporte = 0 Then rep_fisico.Close()
	End Sub
	'hormigon
	Private Sub subHnue_Click()
		'nuevo fisico
		bandModi = 1 : bandReporte = 4 : rep_fisico.Show()
		If bandReporte = 0 Then rep_fisico.Close()
	End Sub
	Private Sub subHmodi_Click()
		'modifi fisico
		bandModi = 2 : bandReporte = 4 : rep_fisico.Show()
		If bandReporte = 0 Then rep_fisico.Close()
	End Sub
	Public Sub modificar_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles modificar.Click
		Dim result As String
		Dim Dir1, aux As String
		Dim labo As String
		
		aux = nombreform
		For	Each colecForms In My.Application.OpenForms
			If colecForms.Name = aux Then 'Si es el mismo nombre del form
				nombForm = colecForms 'Asignarlo a la variable
			End If
		Next colecForms
		
		'aux = revisarDecimales(",56")
		'cadParametros = "12345-SC-1364/2-4-1-2-1-6-7-8"
		'''cadParametros = "12345-SC-1364/2-4-1-2-1-6-7-8*21089-SC-18657/1-2-3-4-5-6-7-8"
		'''datosTickel.Show
		
		'labo = nombForm.txt_reg1.Text & "-" & nombForm.txt_reg2.Text & "-" & nombForm.txt_reg3.Text
		'Dir1 = "c:\tesis_informatica\croquis\" & aux & "\" '"d:\PROYECTO_CASA\software\casa\v1.3\croquis\" & aux & "\"
		'Call copiar_renombrarArch(imagen, Dir1, "labo")
		
		'///////////**/*/***/*/*/*/*/*/*
		'Dim Documento As Word.Document
		'Call generarPDF("hola")
		
		'con datareport
		'Call imprimir(7, 1, 0)
		'Call imprimir(CInt(aux3), 1, 0) 'tbasico,fisico
		'Call plantillas(7, 1, 0, "menu")
		Call crearplantilla(1, 1, 0, "menu")
		
		'Call crearplantillaMicro(8, 2, 1, "menu")
		'word
		'Call ImpReporte(CInt(aux3), 1, 0)
		'Set VBWord = New Word.Application 'Nuevo instancia del objeto
		'Agrega un Nuevo documento de word
		'Set Documento = VBWord.Documents.Add
		'Call macroDatos(7, 1, 0, "menu")
		'menu.VBWord.Visible = True 'Hago visible el word
		'Set VBWord = Nothing
		'Set Documento = Nothing
		'Exit Sub
		'ErrSub:
		'MsgBox Err.Description
		'On Error Resume Next
		'Set VBWord = Nothing
		'Set Documento = Nothing
	End Sub
	
	'*****************************************************
	' Finalidad: GRAFICOS de la barra principal
	'*****************************************************
	Public Sub subTickel_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles subTickel.Click
		buscar.Show()
	End Sub
	'*****************************************************
	' Finalidad: ESTADISTICAS de la barra principal
	'*****************************************************
	Public Sub menuestadisticos_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles menuestadisticos.Click
		Dim aux As String
		'UPGRADE_WARNING: Couldn't resolve default property of object devolverCont(). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
		aux = devolverCont("count(*)", " protocolo", 0)
		If CShort(aux) <> 0 Then
			estadistica.Show()
		Else
			Call mensajes(8)
		End If
	End Sub
	'*****************************************************
	' Finalidad: ADMINISTRADOR de la barra principal
	'*****************************************************
	'%%%%%%%%%%% LISTA PARAMETROS
	'Private Sub subcompleto_Click()
	'bandReporte = 3 'TODOS LOS PARAMETROS
	'listParam.Show
	'End Sub
	'Private Sub lisfisico_Click()
	'bandReporte = 1 'FISICO
	'listParam.Show
	'End Sub
	'Private Sub lisMicro_Click()
	'bandReporte = 2 'MICROBIOLOGICO
	'listParam.Show
	'End Sub
	
	'Private Sub sublista_Click() 'lista de los parametros existentes
	'listParam.Show
	'End Sub
	Public Sub sublista_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles sublista.Click
		bandReporte = 3 'TODOS LOS PARAMETROS
		listParam.Show()
	End Sub
	Public Sub subusuario_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles subusuario.Click
		Dim Index As Short = subusuario.GetIndex(eventSender) 'INSERTAR USUARIO
		' usuarios.Show
		band = 1
		'UPGRADE_WARNING: Couldn't resolve default property of object lista.Show. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
		lista.Show()
	End Sub
	Private Sub subPI_Click() 'INSERTAR PARAMETROS
		'costosParam.txt_cambio.Text = tipoCambio()
		costosParam.Show()
	End Sub
	Public Sub subTCI_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles subTCI.Click 'TIPO DE CAMBIO
		'tipo_Cambio.Show
		band = 2
		'UPGRADE_WARNING: Couldn't resolve default property of object lista.Show. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
		lista.Show()
	End Sub
	Public Sub subM_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles subM.Click 'MODIFICAR COSTO
		modi_costo.Show()
	End Sub
	Public Sub subElim_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles subElim.Click 'ELIMINAR
		'Call datosReporte
		'DataReport2.Show
	End Sub
	'*****************************************************
	' Finalidad: AYUDA de la barra principal
	'*****************************************************
	'*****************************************************
	' Finalidad: BARRA DE HERRAMIENTAS
	'*****************************************************
	Private Sub menu_toolbar_ButtonClick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles _menu_toolbar_Button1.Click, _menu_toolbar_Button2.Click, _menu_toolbar_Button3.Click, _menu_toolbar_Button4.Click, _menu_toolbar_Button5.Click, _menu_toolbar_Button6.Click, _menu_toolbar_Button7.Click, _menu_toolbar_Button8.Click, _menu_toolbar_Button9.Click, _menu_toolbar_Button10.Click, _menu_toolbar_Button11.Click, _menu_toolbar_Button12.Click
		Dim Button As System.Windows.Forms.ToolStripItem = CType(eventSender, System.Windows.Forms.ToolStripItem)
		Select Case Button.Name
			Case "ac"
				ac.Show()
			Case "r1"
				ril.Show()
			Case "r2"
				rdl.Show()
			Case "guardar"
				Call guardar_tool_click()
			Case "imprimir"
			Case "fisi" 'NUEVO ENSAYO FISICOQUIMICO
				bandEnsayo = 1 : Call subFnuevo_Click(subFnuevo, New System.EventArgs())
			Case "salir"
				
				End
			Case "nuevo"
		End Select
		'menu_toolbar.Left = 0
		'menu_toolbar.Width = 11400
	End Sub
	'*****************************************************
	' Finalidad: FUNCION GUARDAR LOS FORMULARIOS
	'*****************************************************
	Private Sub guardar_tool_click()
		Dim r, cont, i As Integer
		Dim cad, mensaje As String
		Dim aux, aux3 As String
		Dim bandProtocolo As Short
		Dim explode() As String
		Dim param As String
		Dim j As Integer
		'variables para los archivos
		Dim Dir1 As String
		Dim labo As String
		
		
		'## BUSCAR FORM
		For	Each colecForms In My.Application.OpenForms
			If colecForms.Name = nombreform Then 'Si es el mismo nombre del form
				nombForm = colecForms 'Asignarlo a la variable
			End If
		Next colecForms
		'crear directorios y copy and rename archivos
		
		
		'INSERTAR Y MODIFICAR PROTOCOLOS
		bandProtocolo = 0
		
		Select Case nombreform
			
			Case Is = "ac", Is = "an", Is = "rdl", Is = "ril"
				
				'UPGRADE_ISSUE: Control txt_reg3 could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				'UPGRADE_ISSUE: Control txt_reg2 could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				'UPGRADE_ISSUE: Control txt_reg1 could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				labo = nombForm.txt_reg1.Text & "-" & nombForm.txt_reg2.Text & "-" & nombForm.txt_reg3.Text
				'Dir1 = "d:\PROYECTO_CASA\software\casa\v1.3\croquis\" & nombreform & "\"
				Dir1 = "c:\tesis_informatica\croquis\" & nombreform & "\"
				
				Select Case bandProtocolo
					Case Is = 0 'Nuevo
						'UPGRADE_WARNING: Couldn't resolve default property of object pregObligatorias(nombreform). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
						If pregObligatorias(nombreform) = 1 Then
							'Call insertProtocolo(nombreform)
							'UPGRADE_WARNING: Couldn't resolve default property of object insertProtocolo(). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
							aux = insertProtocolo(nombreform)
							If imagen <> "" Then
								Call copiar_renombrarArch(imagen, Dir1, labo)
							End If
							If CDbl(aux) = 1 Then
								'UPGRADE_WARNING: Couldn't resolve default property of object mensajes(). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
								aux3 = mensajes(5) 'se ingreso satisfactoriamente
								Me.Close() 'cierro
								Select Case nombreform
									Case Is = "ril" : ril.Show()
									Case Is = "rdl" : rdl.Show()
									Case Is = "an" : an.Show()
									Case Is = "ac" : nombForm.Show() 'abro
								End Select
							End If
						End If
					Case Is = 1 'modificar
				End Select
				
				'*** ENSAYO
			Case Is = "fisicoquimico"
				
				'UPGRADE_ISSUE: Control flex_analisis could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				r = nombForm.flex_analisis.Rows
				For i = 0 To r - 1
					'UPGRADE_ISSUE: Control flex_analisis could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
					aux3 = nombForm.flex_analisis.TextMatrix(i, 0)
					'UPGRADE_ISSUE: Control flex_analisis could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
					If aux3 = "OTROS" Then cad = nombForm.flex_analisis.TextMatrix(i, 2)
				Next i
				'UPGRADE_ISSUE: Control cmb_muestra could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				'UPGRADE_ISSUE: Control cmb_reg could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				'UPGRADE_WARNING: Couldn't resolve default property of object UpdateEnsayo(). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
				aux = UpdateEnsayo(1, cad, nombForm.cmb_reg.Text, nombForm.cmb_muestra.Text, r - 1)
				If CDbl(aux) = 1 Then
					'UPGRADE_WARNING: Couldn't resolve default property of object mensajes(). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
					aux3 = mensajes(5) 'se ingreso satisfactoriamente
					Me.Close() 'cierro
					nombForm.Show() 'abro
				Else
					'UPGRADE_WARNING: Couldn't resolve default property of object mensajes(). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
					cad = mensajes(6) 'se ingreso incorrectamente
				End If
				
			Case Is = "microbiologico"
				
				'UPGRADE_ISSUE: Control flex_analisis could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				r = nombForm.flex_analisis.Rows
				'UPGRADE_ISSUE: Control cmb_reg could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				'UPGRADE_WARNING: Couldn't resolve default property of object devolverCod(). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
				aux = devolverCod("cod_protocolo as cod", "protocolo", "nro_reg='" & nombForm.cmb_reg.Text & "'", 0)
				'UPGRADE_ISSUE: Control cmb_nomb could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				'UPGRADE_ISSUE: Control cmb_mat could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				'UPGRADE_ISSUE: Control cmb_pat could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				If nombForm.cmb_pat <> "Ape. Paterno" And nombForm.cmb_mat <> "Ape. Materno" And nombForm.cmb_nomb <> "Nombre(s)" Then
					'UPGRADE_ISSUE: Control cmb_nomb could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
					'UPGRADE_ISSUE: Control cmb_mat could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
					'UPGRADE_ISSUE: Control cmb_pat could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
					'UPGRADE_WARNING: Couldn't resolve default property of object codPersonal(). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
					aux3 = codPersonal(nombForm.cmb_pat & "-" & nombForm.cmb_mat & "-" & nombForm.cmb_nomb, "")
				Else
					aux3 = CStr(0)
				End If
				'modifica la fecha
				'UPGRADE_ISSUE: Control dtp_Hensayo could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				'UPGRADE_WARNING: Couldn't resolve default property of object colocarNum(nombForm.dtp_Hensayo.Minute). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
				'UPGRADE_WARNING: Couldn't resolve default property of object colocarNum(). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
				'UPGRADE_ISSUE: Control dtp_fanalisis could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				'UPGRADE_WARNING: Couldn't resolve default property of object UpdateFech(). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
				cad = UpdateFech(aux, nombForm.dtp_fanalisis.Year & "-" & nombForm.dtp_fanalisis.Month & "-" & nombForm.dtp_fanalisis.Day, colocarNum(nombForm.dtp_Hensayo.Hour) & ":" & colocarNum(nombForm.dtp_Hensayo.Minute), aux3)
				'modificar parametros
				'UPGRADE_WARNING: Couldn't resolve default property of object devolverCod(). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
				param = devolverCod("parametro as cod", "parametros", "ensayo='mi' and cod_protocolo='" & aux & "'", 0)
				explode = Split(param, "-")
				For i = LBound(explode) To UBound(explode)
					If i = 0 Then
						'UPGRADE_WARNING: Couldn't resolve default property of object devolverCod(). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
						param = devolverCod("parametro as cod", "costos_quimicos", "cod_costos=" & explode(i) & "", 0)
					Else
						'UPGRADE_WARNING: Couldn't resolve default property of object devolverCod(). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
						param = param & "-" & devolverCod("parametro as cod", "costos_quimicos", "cod_costos=" & explode(i) & "", 0)
					End If
				Next i
				aux = cad : cad = ""
				explode = Split(param, "-")
				For j = LBound(explode) To UBound(explode)
					For i = 1 To r - 1
						If microbiologico.flex_analisis.get_TextMatrix(i, 0) = explode(j) Then
							param = microbiologico.flex_analisis.get_TextMatrix(i, 3)
						End If
						'UPGRADE_ISSUE: Control flex_analisis could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
						aux3 = nombForm.flex_analisis.TextMatrix(i, 0)
						'UPGRADE_ISSUE: Control flex_analisis could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
						If aux3 = "CONCLUSIONES" Then aux3 = nombForm.flex_analisis.TextMatrix(i, 3)
						
					Next i
					If j = 0 Then
						cad = param
					Else
						cad = cad & "-" & param
					End If
				Next j
				cad = cad & "*" & aux3
				If CDbl(aux) = 1 Then
					'UPGRADE_ISSUE: Control cmb_muestra could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
					'UPGRADE_ISSUE: Control cmb_reg could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
					'UPGRADE_WARNING: Couldn't resolve default property of object UpdateEnsayo(). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
					aux3 = UpdateEnsayo(2, cad, nombForm.cmb_reg.Text, nombForm.cmb_muestra.Text, r - 1)
					If CDbl(aux3) = 1 Then
						'UPGRADE_WARNING: Couldn't resolve default property of object mensajes(). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
						cad = mensajes(5) 'se ingreso satisfactoriamente
						Me.Close() 'cierro
						nombForm.Show() 'abro
					End If
				Else
					'UPGRADE_WARNING: Couldn't resolve default property of object mensajes(). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
					cad = mensajes(6) 'se ingreso incorrectamente
				End If
				'** REPORTES
			Case Is = "rep_fisico"
				
				'UPGRADE_ISSUE: Control check_reuneCondi could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				If nombForm.check_reuneCondi.Value = 1 Then aux = nombForm.check_reuneCondi.Caption
				'UPGRADE_ISSUE: Control Check_noReune could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				If nombForm.Check_noReune.Value = 1 Then aux = nombForm.Check_noReune.Caption
				'UPGRADE_ISSUE: Control check_cliente could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				If nombForm.check_cliente.Value = 1 Then aux = nombForm.check_cliente.Caption
				'UPGRADE_ISSUE: Control cmb_reg could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				'UPGRADE_WARNING: Couldn't resolve default property of object devolverCod(). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
				cad = devolverCod("cod_protocolo as cod", "protocolo", "nro_reg='" & nombForm.cmb_reg.Text & "'", 0)
				'UPGRADE_WARNING: Couldn't resolve default property of object updateReporte(). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
				aux3 = updateReporte(1, cad, (rep_fisico.txt_resultado.Text), (rep_fisico.txt_conclusion.Text), (rep_fisico.txt_recomendacion.Text), aux)
				If CDbl(aux3) = 1 Then
					'UPGRADE_WARNING: Couldn't resolve default property of object mensajes(). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
					cad = mensajes(5) 'se ingreso satisfactoriamente
					'UPGRADE_ISSUE: Control cmb_reg could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
					'UPGRADE_WARNING: Couldn't resolve default property of object devolverCod(). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
					aux3 = devolverCod("cod_protocolo as cod", "protocolo", "nro_reg='" & nombForm.cmb_reg.Text & "'", 0)
					Me.Close() 'cierro
					'******ESCRIBIR EN WORD ***
					'Call crearplantilla(7, 1, 0, "menu")
					'que parametros mostrara
					'tipoPlantilla (aux3)
					Call crearplantilla(CShort(aux3), 1, 0, "menu")
					'Call imprimir(CInt(aux3), 1, 0) 'tbasico,fisico
					'***************************
					nombForm.Show() 'abro
					If bandReporte = 0 Then rep_fisico.Close()
				Else
					'UPGRADE_WARNING: Couldn't resolve default property of object mensajes(). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
					cad = mensajes(6) 'se ingreso incorrectamente
				End If
				
			Case Is = "rep_micro"
				
				'UPGRADE_ISSUE: Control check_reuneCondi could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				If nombForm.check_reuneCondi.Value = 1 Then aux = nombForm.check_reuneCondi.Caption
				'UPGRADE_ISSUE: Control Check_noReune could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				If nombForm.Check_noReune.Value = 1 Then aux = nombForm.Check_noReune.Caption
				'UPGRADE_ISSUE: Control check_cliente could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				If nombForm.check_cliente.Value = 1 Then aux = nombForm.check_cliente.Caption
				'UPGRADE_ISSUE: Control cmb_reg could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				'UPGRADE_WARNING: Couldn't resolve default property of object devolverCod(). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
				param = devolverCod("cod_protocolo as cod", "protocolo", "nro_reg='" & nombForm.cmb_reg.Text & "'", 0)
				'UPGRADE_WARNING: Couldn't resolve default property of object updateReporte(). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
				aux3 = updateReporte(2, param, (rep_micro.txt_resultado.Text), (rep_micro.txt_conclusion.Text), (rep_micro.txt_recomendacion.Text), aux) ' devolverCod("cod_protocolo as cod", "protocolo", "nro_reg='" & nombForm.cmb_reg.Text & "'", 0)
				If CDbl(aux3) = 1 Then
					'UPGRADE_WARNING: Couldn't resolve default property of object mensajes(). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
					cad = mensajes(5) 'se ingreso satisfactoriamente
					'UPGRADE_ISSUE: Control cmb_reg could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
					'UPGRADE_WARNING: Couldn't resolve default property of object devolverCod(). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
					aux3 = devolverCod("cod_protocolo as cod", "protocolo", "nro_reg='" & nombForm.cmb_reg.Text & "'", 0)
					Me.Close() 'cierro
					'/** WORD
					Call crearplantillaMicro(CShort(aux3), 1, 0, "menu")
					'/**
					nombForm.Show() 'abro
					If bandReporte = 0 Then rep_micro.Close()
				Else
					'UPGRADE_WARNING: Couldn't resolve default property of object mensajes(). Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
					cad = mensajes(6) 'se ingreso incorrectamente
				End If
				'lbl_sar
				'lbl_clase
				'======= %%%%%%%%%%%%%%%%%%%%%%
				'========  ADMINISTRADOR
			Case Is = "tipo_Cambio"
				'UPGRADE_ISSUE: Control dtp_tipoCambio could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				aux3 = "'" & nombForm.dtp_tipoCambio.Year & "-" & nombForm.dtp_tipoCambio.Month & "-" & nombForm.dtp_tipoCambio.Day & "'"
				'UPGRADE_ISSUE: Control txt_referencia could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				'UPGRADE_ISSUE: Control txtT_cambio could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				aux = "'','" & nombForm.txtT_cambio.Text & "','" & UCase(nombForm.txt_referencia.Text) & "'," & aux3
				'UPGRADE_ISSUE: Control txtT_cambio could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				If nombForm.txtT_cambio.Text <> "" Then
					Call insertAdd("tipo_cambio", aux)
					nombForm.Close()
					nombForm.Show()
				Else
					Call mensajes1(1, " de tipo de cambio")
					'UPGRADE_ISSUE: Control txtT_cambio could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
					nombForm.txtT_cambio.SetFocus()
				End If
				'========= USUARIOS
			Case Is = "usuarios"
				If usuarios.cmb_nivel.SelectedIndex = 0 Then
					i = 1
				Else
					i = 2
				End If
				'UPGRADE_ISSUE: Control txt_paterno could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				'UPGRADE_ISSUE: Control txt_nomb could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				'UPGRADE_ISSUE: Control txt_pass could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				'UPGRADE_ISSUE: Control txt_login could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				'UPGRADE_ISSUE: Control txt_cargo could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				aux = "'','" & nombForm.txt_cargo.Text & "','" & nombForm.txt_login.Text & "','" & nombForm.txt_pass.Text & "','',''," & i & ",'" & nombForm.txt_nomb.Text & "','" & nombForm.txt_paterno.Text & "'"
				'UPGRADE_ISSUE: Control txt_pass could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				'UPGRADE_ISSUE: Control txt_login could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				'UPGRADE_ISSUE: Control txt_cargo could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				If nombForm.txt_cargo.Text <> "" And nombForm.txt_login.Text <> "" And nombForm.txt_pass.Text <> "" Then
					Call insertAdd("administrador", aux)
					nombForm.Close()
					nombForm.Show()
				Else
					Call mensajes1(1, "")
					'UPGRADE_ISSUE: Control txt_pass could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
					'UPGRADE_ISSUE: Control txt_login could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
					'UPGRADE_ISSUE: Control txt_cargo could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
					If nombForm.txt_cargo.Text = "" And nombForm.txt_login.Text = "" And nombForm.txt_pass.Text = "" Then
						'UPGRADE_ISSUE: Control txt_cargo could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
						nombForm.txt_cargo.SetFocus()
						'UPGRADE_ISSUE: Control txt_pass could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
						'UPGRADE_ISSUE: Control txt_login could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
						'UPGRADE_ISSUE: Control txt_cargo could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
					ElseIf nombForm.txt_cargo.Text <> "" And nombForm.txt_login.Text = "" And nombForm.txt_pass.Text = "" Then 
						'UPGRADE_ISSUE: Control txt_login could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
						nombForm.txt_login.SetFocus()
						'UPGRADE_ISSUE: Control txt_pass could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
						'UPGRADE_ISSUE: Control txt_login could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
						'UPGRADE_ISSUE: Control txt_cargo could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
					ElseIf nombForm.txt_cargo.Text <> "" And nombForm.txt_login.Text <> "" And nombForm.txt_pass.Text = "" Then 
						'UPGRADE_ISSUE: Control txt_pass could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
						nombForm.txt_pass.SetFocus()
					End If
				End If
				'===== INGRESAR PARAMETROS
			Case Is = "costosParam"
				'UPGRADE_ISSUE: Control chek_basico could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				If nombForm.chek_basico.Value = 0 Then
					aux3 = "N"
				Else
					aux3 = "B"
				End If
				'UPGRADE_ISSUE: Control cmb_anali could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				If nombForm.cmb_anali.ListIndex = 0 Then
					param = "fi"
					'UPGRADE_ISSUE: Control cmb_anali could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				ElseIf nombForm.cmb_anali.ListIndex = 1 Then 
					param = "mi"
				End If
				'UPGRADE_ISSUE: Control cmbEn could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				If nombForm.cmbEn.ListIndex = 0 Then
					aux = "bacte"
					'UPGRADE_ISSUE: Control cmbEn could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				ElseIf nombForm.cmbEn.ListIndex = 1 Then 
					aux = "parasi"
					'UPGRADE_ISSUE: Control cmbEn could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				ElseIf nombForm.cmbEn.ListIndex = 2 Then 
					aux = "viral"
					'UPGRADE_ISSUE: Control cmbEn could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				ElseIf nombForm.cmbEn.ListIndex = 3 Then 
					aux = "otros"
				End If
				If param = "fi" Then aux = "n"
				'UPGRADE_ISSUE: Control txt12 could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				'UPGRADE_ISSUE: Control txt11 could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				'UPGRADE_ISSUE: Control txt10 could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				'UPGRADE_ISSUE: Control txt8 could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				'UPGRADE_ISSUE: Control txt2 could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				'UPGRADE_ISSUE: Control txt9 could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				'UPGRADE_ISSUE: Control txt4 could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				'UPGRADE_ISSUE: Control txt7 could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				'UPGRADE_ISSUE: Control txt6 could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				'UPGRADE_ISSUE: Control txt5 could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				'UPGRADE_ISSUE: Control txt3 could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				'UPGRADE_ISSUE: Control txt1 could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				aux = "'','" & nombForm.txt1.Text & "','" & nombForm.txt3.Text & "','" & nombForm.txt5.Text & "','" & nombForm.txt6.Text & "','" & nombForm.txt7.Text & "','" & nombForm.txt4.Text & "','" & aux3 & "','" & param & "','" & nombForm.txt9.Text & "','" & aux & "',0,'" & nombForm.txt2.Text & "','" & nombForm.txt8.Text & "','" & nombForm.txt10.Text & "','" & nombForm.txt11.Text & "','" & nombForm.txt12.Text & "'"
				'UPGRADE_ISSUE: Control txt1 could not be resolved because it was within the generic namespace Form. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'
				If nombForm.txt1.Text <> "" Then 'parametro
					Call insertAdd("costos_quimicos", aux)
					nombForm.Close()
					nombForm.Show()
				End If
				
		End Select
	End Sub
End Class